home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / zebu v3.3.3 (LALR parser) / Compile.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  1.4 KB  |  43 lines  |  [TEXT/ttxt]
  1. ; -*- mode:     CL -*- ----------------------------------------------------- ;
  2. ; File:         Compile.lisp
  3. ; Description:  Compile a CL file with Zebu runtime system loaded
  4. ; Author:       Joachim H. Laubsch
  5. ; Created:      30-Oct-92
  6. ; Modified:     Wed Feb 17 15:55:22 1993 (Joachim H. Laubsch)
  7. ; Language:     CL
  8. ; Package:      CL-USER
  9. ; Status:       Experimental (Do Not Distribute) 
  10. ; RCS $Header: $
  11. ;
  12. ; (c) Copyright 1992, Hewlett-Packard Company
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14. ; Revisions:
  15. ; RCS $Log: $
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. (in-package "CL-USER")
  18.  
  19. (declaim (optimize (speed 3) (safety 1) (compilation-speed 0)))
  20.  
  21. (let ((*default-pathname-defaults*
  22.        (make-pathname :directory (pathname-directory *LOAD-PATHNAME*)
  23.               :type "lisp"))
  24.       ifile ofile)
  25.   (do* ((i 2 (1+ i))
  26.     (arg (command-line-argument i) (command-line-argument i)))
  27.        ((null arg)
  28.     (unless ifile (error "No -f argument found")))
  29.     (cond ((equal arg "-f")
  30.        (setq ifile (command-line-argument (incf i))))
  31.       ((equal arg "-o")
  32.        (setq ofile (command-line-argument (incf i))))))
  33.   (if ofile
  34.       (compile-file ifile :output-file ofile)
  35.     (compile-file ifile)))
  36.  
  37. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  38. ;;                             End of Compile.lisp
  39. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  40.  
  41.  
  42.  
  43.